COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	SRATE←25000MAG←512/SRATESPEED←2
C00007 ENDMK
C⊗;
SRATE←25000;MAG←512/SRATE;SPEED←2;
ARRAY F1(512);
VARIABLE /AA,MS,CS,MS2
;
<   PARAMETERS FOR VLND
<   P1  P2  P3  P4  P5  P6  P7  P8  P9  P10
<   BT  D  AMP CF  MF  I1  I2  MF2 2I1 2I2

<   P11 P12 P13 P14 P15 P16 P17 P18
<   AFU IFU %VB %VI VBF SC I2FU VIBFU

INSTRUMENT VLND;
MS←P5*P16*MAG;CS←P4*P16*MAG;
OSCIL[10](1,10*(MAG/P2),P18);
OSCIL(U1,P15*MAG,F1);AA←U2*P13;
INTRP(P6*MS,P7*MS,P12);
OSCIL(U3+P14*U3*U2,MS*(1+AA),F1);
INTRP(P9*P8*P16*MAG,P10*P8*P16*MAG,P17);
OSCIL(U5,P8*MAG*P16,F1);
ZOSCIL(P3,MAG/P2,P11);
ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
OUTA←OUTA+U8;
END;
INSTRUMENT VLNC;
VARIABLE X1,X2,X3,X4,X5;
VARIABLE CS,MS,MS2;
X1←X2←X3←X4←X5←0;
MS←P5*P16*MAG;CS←P4*P16*MAG;
LINEN(1.0,P18,P19,P21,P20,X1);
OSCIL(U1,P15*MAG,F1);AA←U2*P13;
LINEN((P7-P6)*MS,P18,P19,P21,P12,X2);
OSCIL((P6*MS+U3)*(1.0+P14*U2),MS*(1+AA),F1);
MS2←P8*P16*MAG;
LINEN((P10-P9)*MS2,P18,P19,P21,P17,X3);
OSCIL(P9*MS2+U5,MS2,F1);
LINEN(P3,P18,P19,P21,P11,X4);
ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
OUTA←OUTA+U8;
END;
INSTRUMENT VLNC2;
VARIABLE X1,X2,X3,X4,X5;
VARIABLE CS,MS,MS2;
X1←X2←X3←X4←X5←0;
MS←P5*P16*MAG;CS←P4*P16*MAG;
LINEN(1.0,P18,P19,P21,P20,X1);
OSCIL(U1,P15*MAG,F1);AA←U2*P13;
LINEN((P7-P6)*MS,P18,P19,P21,P12,X2);
OSCIL((P6*MS+U3)*(1.0+P14*U2),MS*(1+AA),F1);
MS2←P8*P16*MAG;
LINEN((P10-P9)*MS2,P18,P19,P21,P17,X3);
OSCIL(P9*MS2+U5,MS2,F1);
LINEN(P3,P18,P19,P21,P11,X4);
ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
OUTA←OUTA+U8;
END;
INSTRUMENT VLNC3;
VARIABLE X1,X2,X3,X4,X5;
VARIABLE CS,MS,MS2;
X1←X2←X3←X4←X5←0;
MS←P5*P16*MAG;CS←P4*P16*MAG;
LINEN(P22*MAG,P18,P19,P21,P20,X5);
RANDI(U1,P23*MAG);
LINEN(1.0,P18,P19,P21,P20,X1);
NOSCIL(U3,P15*MAG,F1);AA←U4*P13;
LINEN((P7-P6)*MS,P18,P19,P21,P12,X2);
NOSCIL((P6*MS+U5)*(1.0+P14*U4),MS*(1+AA),F1);
MS2←P8*P16*MAG;
LINEN((P10-P9)*MS2,P18,P19,P21,P17,X3);
NOSCIL(P9*MS2+U7,MS2+U2,F1);
LINEN(P3,P18,P19,P21,P11,X4);
ZOSCIL(U9,U6+CS*(1+AA)+U8,F1);
OUTA←OUTA+U10;
END;

INSTRUMENT META;
VARIABLE /SST,/SSS,/AA,KMS,KCS,KMS2,KCS2,FLAG,FLAG2;
VARIABLE X1,X2,X3,X4,X5;
X1←X2←X3←X4←X5←0;
FLAG←1;
FLAG2←1;
IF P16=0 THEN IF P17=0 THEN FLAG←0;
IF P12=0 THEN IF P13=0 THEN FLAG2←0;
KMS←P7*P20*MAG;KCS←P5*P20*MAG;KMS2←P8*P20*MAG;KCS2←P6*P20*MAG;
        
       SSS←OSCIL(LINEN(1.0,P22,P23,P24,P18,X1),P15*MAG,F1);
        AA←SSS*P16;
	LINEN((P10-P9)*KMS,P22,P23,P24,P11,X2);
	OSCIL((P9*KMS+U1)*(1.0+P17*SSS),KMS*(1.0+AA),F1);
	SST←OSCIL(P12*KMS2+LINEN((P13-P12)*KMS2,P22,P23,P24,P14,X3),KMS2,F1);
	LINEN(P3*P4,P22,P23,P24,P21,X4);
	ZOSCIL(U3,U2+SST+KCS*(1.0+AA),F1);
	LINEN(P3*(1.0-P4),P22,P23,P24,P26,X5);
	ZOSCIL(U5,P19*(U2+SST)+KCS2*(1.0+AA),F1);
        OUTA←OUTA+U4+U6;
END;
INSTRUMENT FOO;
LINEN(P3,P22,P23,P24,P21,P25);
OSCIL(U1,P5*MAG,F1);
OUTA←OUTA+U2;
END;
SYNTH(F1);1 1 999